home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 21
/
Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso
/
Aminet
/
dev
/
e
/
Chris_emods.lha
/
Chris_emods.readme
next >
Wrap
Text File
|
1997-08-24
|
6KB
|
195 lines
Short: 5 emods. Progress window, scrolling, lists, exec lists, screens
Uploader: chris@planb.TheGAP.com (Chris Perver)
Author: chris@planb.TheGAP.com (Chris Perver)
Type: dev/e
Replaces: dev/e/Chris_emods.lha
Here is the first of my slightly useful AmigaE modules.
--------------------------------------------------------------------------------
myscrollraster() works exactly like ScrollRaster(). myscrollraster() uses
BlitCopy(), and doesn't clear the new area of raster, which is useful for when
you want to have clean looking scrolling. I use it for EvenMore.
myscrollraster(rp, x, y, x2, y2, deltax, deltay)
EXAMPLE
myscrollraster(rp, 5, 5, 50, 50, -10, 20)
INPUT
rp - Rastport
x - Left coord
y - Top coord
x2 - Right coord
y2 - Bottom coord
deltax - How many pixels to scroll horizontally
deltay - How many pixels to scroll vertically
BUGS
Don't think it can handle scrolls larger than the area to scroll. But
because this function doesn't clear the new area of raster, there wouldn't
be any visual difference anyway.
--------------------------------------------------------------------------------
The next two functions are useful for preference files, etc. I use them for
EvenMore :). insertinlist() will take a string of numbers, seperated by slashes,
and insert each value into the list. Will stop inserting values when it comes to
the end of the list.
insertinlist(list, str)
EXAMPLE
insertinlist(list, '5/40/6/3')
INPUT
list - A list (Not exec list), list := [0,0,0,0]
mergelist2str() does the opposite of insertinlist(). mergelist2str() will take a
list, and return the string of the values in that list, seperated by slashes.
string := mergelist2str(list)
EXAMPLE
str := mergelist2str(list)
INPUT
list - A list (Not exec list), list := [0,0,0,0]
OUTPUT
string - A string of values seperated by slashes, '0/54/334/23'
--------------------------------------------------------------------------------
The functions in execlists.m are useful for manuplating exec lists.
addName(list, str) - Add a list node to a list
freeNode(list, num) - Free node number <num> form a list
freeNameNodes(list) - Free all nodes in the list
num := findNodeNumber(list, str) - Find the position of the node <str> in the
list
str := findNodeName(list, num) - Find the name of node <num> in the list
movelistnode(list1, pos1, list2, pos2) - Move a node from one list/position to
another
EXAMPLE
movelistnode(list, 3, list 4)
movelistnode(list, 3, anotherlist, 6)
INPUT
list1 - An exec list
pos1 - The number of the node to move
list2 - An exec list. Can be the same list as list1
pos2 - The position to put the new node in list2
num := countnodes(list) - Returns number of nodes in a list
--------------------------------------------------------------------------------
findpubscreen() in the screens.m module will return TRUE if a public screen
named <str> exists.
findpubscreen(str)
EXAMPLE
bool := findpubscreen('Workbench')
INPUT
str - Name of a public screen
OUTPUT
bool - True if a public screen is open that matches the name str.
--------------------------------------------------------------------------------
The progresswin module will allow you to display a window with a progress bar in
it. I use this module for EvenMore, when loading files.
First, put this module into your source.
MODULE '*progresswin'
Then you need to make a DEF.
DEF pw:PTR TO progresswin
At the start of your program, put..
NEW pw
And at the end of your program, put..
END pw
When you want to open the progress window, just type the following...
openprogresswin(pw, screenname, winptr, str)
screenname - Name of public screen to open on. Can be NIL.
winptr - The pointer to your window to centre the progress window on.
IF NIL, the progress window will centre on the screen.
str - A string to display above the progress gadget
To update the progress gadget, just type the following...
drawprogressgad(pw, percentage)
percentage - Percentage for progress gadget to be filled
To close the progress window, just type the following...
closeprogresswin(pw)
The progress window will use the screen font of the screen it opens on for the
text. A few values are hard-coded, but you could easily change that if you want.
The window will be 6 times the screen font height high, and 250 pixels wide. The
text will appear 1/3rd of the way down the window, and the progress gadget will
appear in the middle of the window.
If you want to use the window more than once without closing it, for example,
for copying a batch of files, just call the drawprogresstext() function. The
text will be redrawn.
drawprogresstext(pw, 'Progressing :)')
Exceptions Exception info Description
"PUBS" screenname Unable to lock pubscreen
"DRI" Unable to get screen drawinfo
"VIS" Unable to get visualinfo
"FONT" Unable to open screen font
"WIN" Unable to open window
"SCRL" Unable to lock pubscreen list
================================================================================
You are free to use these PROCs for whatever you wish.